function [discount,beca,stipend] = u35_2011(math,lang,demrecode,his,sci)
%% Universidad Catolica del Maule
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Beca UCM de Arancel por Puntaje Nacional
discount=((math==850) + (lang==850) + (his==850) + (sci==850))>0;

%BVP
if demrecode==3516 || demrecode==3515 || demrecode==3518 || demrecode==3520 || demrecode==3511 || demrecode==3521 || demrecode==3513 || demrecode==3519 || demrecode==3517
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
